home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / st80_pr4.lha / st80_pre4 / Foible / FlowKit / FlowKit2-PPfix.st < prev    next >
Text File  |  1993-07-24  |  2KB  |  69 lines
  1. !FlowKitBox class methodsFor: 'class initialization'!
  2.  
  3. initialize
  4.     "FlowKitBox initialize"
  5.  
  6.     SmallTextStyle _ TextStyle styleNamed: #icon.! !
  7.  
  8. FlowKitBox initialize!
  9.  
  10. !LabelBox methodsFor: 'form access'!
  11.  
  12. addInput: aString toForm: aForm 
  13.     "Write the string aString to aForm      
  14.     NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
  15.  
  16.     (aString asDisplayText textStyle: SmallTextStyle)
  17.         displayOn: aForm at: 2 @ 2.
  18.     ^aForm! !
  19.  
  20.  
  21. !NumericInputBox methodsFor: 'form access'!
  22.  
  23. addInput: aNumber toForm: aForm 
  24.     "display aValue on aForm and return it"
  25.     "Write the number aNumber to aForm    
  26.     NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
  27.  
  28.     | aNumberString aString |
  29.     aNumberString _ aNumber printString.
  30.     
  31.     (aNumberString asDisplayText textStyle: SmallTextStyle)
  32.         displayOn: aForm at: 4 @ 3.
  33.     ^aForm! !
  34.  
  35.  
  36. !NumericOutputBox methodsFor: 'form access'!
  37.  
  38. addInput: aNumber toForm: aForm 
  39.     "display aValue on aForm and return it"
  40.     "Write the number aNumber to aForm    
  41.     NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
  42.  
  43.     | aNumberString aString |
  44.     aNumberString _ aNumber printString.
  45.     
  46.     (aNumberString asDisplayText textStyle: SmallTextStyle)
  47.         displayOn: aForm at: 4 @ 3.
  48.     ^aForm! !
  49.  
  50.  
  51. Object subclass: #FlowKitDirectory
  52.     instanceVariableNames: ''
  53.     classVariableNames: ''
  54.     poolDictionaries: ''
  55.     category: 'FlowKit'!
  56.  
  57. "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
  58.  
  59. FlowKitDirectory class
  60.     instanceVariableNames: ''!
  61.  
  62.  
  63. !FlowKitDirectory class methodsFor: 'form access'!
  64.  
  65. iconDirectory
  66.     "return the directory that contains the icons for the FlowKit"
  67.  
  68.     ^'/home/cs492/src/foible4.1/icons'! !
  69.